home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 11 / Amoszine 11 (Disk 2 of 2).adf / Various_Source.lha / BloodDrip.amos / BloodDrip.amosSourceCode < prev    next >
AMOS Source Code  |  1996-03-05  |  1KB  |  68 lines
  1. ' Blood drip 2 
  2. '
  3. ' This drools blood down from the area:
  4. '
  5. ' By Richard Martin
  6. '
  7. ' This code may have been seen before. I got it by using QBTools on an Issue 
  8. ' of WAC!!!  :)  Isn't it great finding deleted files on peeps disks!
  9. '
  10. ' Let that be a warning to all you careless peeps out there. 
  11. ' AG 
  12. '
  13. Screen Open 0,320,200,4,Lowres
  14. Palette $0,$FFF,$F00,$C00
  15. BLOOD[20]
  16. '
  17. Procedure BLOOD[SIZE]
  18.    Flash Off 
  19.    Cls 0
  20.    Ink 2
  21.    Circle 50,50,3
  22.    Paint 51,51
  23.    ' Grab blood splat.
  24.    Get Bob 1,44,44 To 56,56
  25.    Cls 0
  26.    '
  27.    ' Draw great blood blob! 
  28.    '
  29.    CENTERX=Rnd(120)+50
  30.    CENTERY=Rnd(50)+50
  31.    For I=1 To SIZE
  32.       RAND1=Rnd(15)
  33.       RAND2=Rnd(10)
  34.       RAND3=Rnd(100)
  35.       If RAND3>50
  36.          RAND1=RAND1-(RAND1*2)
  37.          RAND2=RAND2-(RAND2*2)
  38.       End If 
  39.       Paste Bob CENTERX+RAND1,CENTERY-RAND2,1
  40.    Next I
  41.    '
  42.    '
  43.    Repeat 
  44.       '  
  45.       RAND1=Rnd(15)
  46.       RAND2=Rnd(10)
  47.       RAND3=Rnd(100)
  48.       '
  49.       If RAND3>50
  50.          RAND1=RAND1-(RAND1*2)
  51.          RAND2=RAND2-(RAND2*2)
  52.       End If 
  53.       X=CENTERX+RAND1
  54.       Y=CENTERY+RAND2
  55.       If Point(X,Y)=2
  56.          DIST=Rnd(100)+100
  57.          DRIP[DIST,X,Y]
  58.       End If 
  59.    Until Mouse Key=1
  60. End Proc
  61. '
  62. Procedure DRIP[DIST,X,Y]
  63.    Ink 3
  64.    For NY=Y To DIST
  65.       Draw X,Y To X,NY
  66.       Wait Vbl 
  67.    Next NY
  68. End Proc